00100	make films
00200		disable timeout on III controller and work lightly loaded
00300		other ways
00400			computer controlled single frame
00500			to run dpy n times
00600				FOO,,74;RESTORE FLAGS
00605				<BYTE(8)0,0,200>+12;TEST CONTROL BIT
00610				-1,,20;SHUTS OFF WORLD
00700				<BYTE (8)0,40,0>+12;ZERO EDGE OVERFLOW AND DON'T SKIP
00800				<BYTE(11)DX,0>+46;MOVE RIGHT DX
00900				<BYTE(8)0,0,40>+12;TEST EDGE OVFL, SKIP IF NOT
01000				<BYTE(8)200>+12;IF NO SKIP,TURN ON CONTROL BIT
01200				0
01300				FOO,,64	;SAVE FLAGS
01400	
01500	
01550	film prints
01552		slight advantage at 4 copies for internegative and optical track
01555		.081$/ft 1-9 copies from internegative
01557		.34$/ft for internegative and optical track
01558		vs .18$/ft electroprint from A/B rolls and consumes original slightly
01560		
01600			DX=1024/N
01700				INIT FOO TO 0
01800	
01900	
02000	protection usable with alias
02100		RENAME ←FOO.BAR/P=205
02200	
02300	operate at MIT
02400		:? gets list of commands
02500		:?? gets longer list of commands
02600		:LISTF GJS;	FILE DIRECTORY
02700		:PRINT		TYPES OUT FILE
02800	
02900	SAIL DEBUG
03000		RU SAILDD[S,AIL]
03100		*←FLOWER/1M
03200	
03300		L3600/7
03400		2M#P
03500		1M#P
03600		3M#P
03700